PC Home 109/PC Home 109.iso/data1.cab/Program_Files/be008.dxr/00160.ls

Text File | 2001-03-02 | 14.9 KB | 589 lines

on exitFrame
  global flicker
  if the timer < 1690 then
    go(the frame)
  else
    startTimer()
    go(the frame + 1)
  end if
  if flicker = 1 then
    set randomiser to 1
    set verty to 1
    set horizonty to 1
  end if
  set honumber to random(4)
  set minushonumber to -3
  set vernumber to random(4)
  set minusvernumber to -2
  set randomiser to random(2)
  if randomiser = 1 then
    set verty to vernumber
    set horizonty to honumber
  else
    set horizonty to minushonumber
    set verty to minusvernumber
  end if
  set x to 5
  if x = 1 then
    set x to 4
  end if
  if x = 3 then
    set x to 5
  end if
  if x = 2 then
    set x to 6
  end if
  set the locH of sprite x to the locH of sprite x + horizonty
  set the locV of sprite x to the locV of sprite x + verty
  if the locH of sprite x >= 620 then
    set the locH of sprite x to the locH of sprite x - 20
  end if
  if the locH of sprite x <= 20 then
    set the locH of sprite x to the locH of sprite x + 20
  end if
  if the locV of sprite x <= 20 then
    set the locV of sprite x to the locV of sprite x + 20
  end if
  if the locV of sprite x >= 460 then
    set the locV of sprite x to the locV of sprite x - 20
  end if
  if flicker = 1 then
    set randomiser to 1
    set verty to 1
    set horizonty to 1
  end if
  set honumber to random(4)
  set minushonumber to -3
  set vernumber to random(4)
  set minusvernumber to -2
  set randomiser to random(2)
  if randomiser = 1 then
    set verty to vernumber
    set horizonty to honumber
  else
    set horizonty to minushonumber
    set verty to minusvernumber
  end if
  set x to 5
  if x = 1 then
    set x to 4
  end if
  if x = 3 then
    set x to 5
  end if
  if x = 2 then
    set x to 6
  end if
  set the locH of sprite x to the locH of sprite x + horizonty
  set the locV of sprite x to the locV of sprite x + verty
  if the locH of sprite x >= 620 then
    set the locH of sprite x to the locH of sprite x - 20
  end if
  if the locH of sprite x <= 20 then
    set the locH of sprite x to the locH of sprite x + 20
  end if
  if the locV of sprite x <= 20 then
    set the locV of sprite x to the locV of sprite x + 20
  end if
  if the locV of sprite x >= 460 then
    set the locV of sprite x to the locV of sprite x - 20
  end if
  if flicker = 1 then
    set randomiser to 1
    set verty to 1
    set horizonty to 1
  end if
  set honumber to random(4)
  set minushonumber to -3
  set vernumber to random(4)
  set minusvernumber to -2
  set randomiser to random(2)
  if randomiser = 1 then
    set verty to vernumber
    set horizonty to honumber
  else
    set horizonty to minushonumber
    set verty to minusvernumber
  end if
  set x to 6
  if x = 1 then
    set x to 4
  end if
  if x = 3 then
    set x to 5
  end if
  if x = 2 then
    set x to 6
  end if
  set the locH of sprite x to the locH of sprite x + horizonty
  set the locV of sprite x to the locV of sprite x + verty
  if the locH of sprite x >= 620 then
    set the locH of sprite x to the locH of sprite x - 20
  end if
  if the locH of sprite x <= 20 then
    set the locH of sprite x to the locH of sprite x + 20
  end if
  if the locV of sprite x <= 20 then
    set the locV of sprite x to the locV of sprite x + 20
  end if
  if the locV of sprite x >= 460 then
    set the locV of sprite x to the locV of sprite x - 20
  end if
  if flicker = 1 then
    set randomiser to 1
    set verty to 1
    set horizonty to 1
  end if
  set honumber to random(4)
  set minushonumber to -3
  set vernumber to random(4)
  set minusvernumber to -2
  set randomiser to random(2)
  if randomiser = 1 then
    set verty to vernumber
    set horizonty to honumber
  else
    set horizonty to minushonumber
    set verty to minusvernumber
  end if
  set x to 7
  if x = 1 then
    set x to 4
  end if
  if x = 3 then
    set x to 5
  end if
  if x = 2 then
    set x to 6
  end if
  set the locH of sprite x to the locH of sprite x + horizonty
  set the locV of sprite x to the locV of sprite x + verty
  if the locH of sprite x >= 620 then
    set the locH of sprite x to the locH of sprite x - 20
  end if
  if the locH of sprite x <= 20 then
    set the locH of sprite x to the locH of sprite x + 20
  end if
  if the locV of sprite x <= 20 then
    set the locV of sprite x to the locV of sprite x + 20
  end if
  if the locV of sprite x >= 460 then
    set the locV of sprite x to the locV of sprite x - 20
  end if
  if flicker = 1 then
    set randomiser to 1
    set verty to 1
    set horizonty to 1
  end if
  set honumber to random(4)
  set minushonumber to -3
  set vernumber to random(4)
  set minusvernumber to -2
  set randomiser to random(2)
  if randomiser = 1 then
    set verty to vernumber
    set horizonty to honumber
  else
    set horizonty to minushonumber
    set verty to minusvernumber
  end if
  set x to 8
  if x = 1 then
    set x to 4
  end if
  if x = 3 then
    set x to 5
  end if
  if x = 2 then
    set x to 6
  end if
  set the locH of sprite x to the locH of sprite x + horizonty
  set the locV of sprite x to the locV of sprite x + verty
  if the locH of sprite x >= 620 then
    set the locH of sprite x to the locH of sprite x - 20
  end if
  if the locH of sprite x <= 20 then
    set the locH of sprite x to the locH of sprite x + 20
  end if
  if the locV of sprite x <= 20 then
    set the locV of sprite x to the locV of sprite x + 20
  end if
  if the locV of sprite x >= 460 then
    set the locV of sprite x to the locV of sprite x - 20
  end if
  if flicker = 1 then
    set randomiser to 1
    set verty to 1
    set horizonty to 1
  end if
  set honumber to random(4)
  set minushonumber to -3
  set vernumber to random(4)
  set minusvernumber to -2
  set randomiser to random(2)
  if randomiser = 1 then
    set verty to vernumber
    set horizonty to honumber
  else
    set horizonty to minushonumber
    set verty to minusvernumber
  end if
  set x to 9
  if x = 1 then
    set x to 4
  end if
  if x = 3 then
    set x to 5
  end if
  if x = 2 then
    set x to 6
  end if
  set the locH of sprite x to the locH of sprite x + horizonty
  set the locV of sprite x to the locV of sprite x + verty
  if the locH of sprite x >= 620 then
    set the locH of sprite x to the locH of sprite x - 20
  end if
  if the locH of sprite x <= 20 then
    set the locH of sprite x to the locH of sprite x + 20
  end if
  if the locV of sprite x <= 20 then
    set the locV of sprite x to the locV of sprite x + 20
  end if
  if the locV of sprite x >= 460 then
    set the locV of sprite x to the locV of sprite x - 20
  end if
  if flicker = 1 then
    set randomiser to 1
    set verty to 1
    set horizonty to 1
  end if
  set honumber to random(4)
  set minushonumber to -3
  set vernumber to random(4)
  set minusvernumber to -2
  set randomiser to random(2)
  if randomiser = 1 then
    set verty to vernumber
    set horizonty to honumber
  else
    set horizonty to minushonumber
    set verty to minusvernumber
  end if
  set x to 10
  if x = 1 then
    set x to 4
  end if
  if x = 3 then
    set x to 5
  end if
  if x = 2 then
    set x to 6
  end if
  set the locH of sprite x to the locH of sprite x + horizonty
  set the locV of sprite x to the locV of sprite x + verty
  if the locH of sprite x >= 620 then
    set the locH of sprite x to the locH of sprite x - 20
  end if
  if the locH of sprite x <= 20 then
    set the locH of sprite x to the locH of sprite x + 20
  end if
  if the locV of sprite x <= 20 then
    set the locV of sprite x to the locV of sprite x + 20
  end if
  if the locV of sprite x >= 460 then
    set the locV of sprite x to the locV of sprite x - 20
  end if
  if flicker = 1 then
    set randomiser to 1
    set verty to 1
    set horizonty to 1
  end if
  set honumber to random(4)
  set minushonumber to -3
  set vernumber to random(4)
  set minusvernumber to -2
  set randomiser to random(2)
  if randomiser = 1 then
    set verty to vernumber
    set horizonty to honumber
  else
    set horizonty to minushonumber
    set verty to minusvernumber
  end if
  set x to 11
  if x = 1 then
    set x to 4
  end if
  if x = 3 then
    set x to 5
  end if
  if x = 2 then
    set x to 6
  end if
  set the locH of sprite x to the locH of sprite x + horizonty
  set the locV of sprite x to the locV of sprite x + verty
  if the locH of sprite x >= 620 then
    set the locH of sprite x to the locH of sprite x - 20
  end if
  if the locH of sprite x <= 20 then
    set the locH of sprite x to the locH of sprite x + 20
  end if
  if the locV of sprite x <= 20 then
    set the locV of sprite x to the locV of sprite x + 20
  end if
  if the locV of sprite x >= 460 then
    set the locV of sprite x to the locV of sprite x - 20
  end if
  if flicker = 1 then
    set randomiser to 1
    set verty to 1
    set horizonty to 1
  end if
  set honumber to random(4)
  set minushonumber to -3
  set vernumber to random(4)
  set minusvernumber to -2
  set randomiser to random(2)
  if randomiser = 1 then
    set verty to vernumber
    set horizonty to honumber
  else
    set horizonty to minushonumber
    set verty to minusvernumber
  end if
  set x to 12
  if x = 1 then
    set x to 4
  end if
  if x = 3 then
    set x to 5
  end if
  if x = 2 then
    set x to 6
  end if
  set the locH of sprite x to the locH of sprite x + horizonty
  set the locV of sprite x to the locV of sprite x + verty
  if the locH of sprite x >= 620 then
    set the locH of sprite x to the locH of sprite x - 20
  end if
  if the locH of sprite x <= 20 then
    set the locH of sprite x to the locH of sprite x + 20
  end if
  if the locV of sprite x <= 20 then
    set the locV of sprite x to the locV of sprite x + 20
  end if
  if the locV of sprite x >= 460 then
    set the locV of sprite x to the locV of sprite x - 20
  end if
  if flicker = 1 then
    set randomiser to 1
    set verty to 1
    set horizonty to 1
  end if
  set honumber to random(4)
  set minushonumber to -3
  set vernumber to random(4)
  set minusvernumber to -2
  set randomiser to random(2)
  if randomiser = 1 then
    set verty to vernumber
    set horizonty to honumber
  else
    set horizonty to minushonumber
    set verty to minusvernumber
  end if
  set x to 13
  if x = 1 then
    set x to 4
  end if
  if x = 3 then
    set x to 5
  end if
  if x = 2 then
    set x to 6
  end if
  set the locH of sprite x to the locH of sprite x + horizonty
  set the locV of sprite x to the locV of sprite x + verty
  if the locH of sprite x >= 620 then
    set the locH of sprite x to the locH of sprite x - 20
  end if
  if the locH of sprite x <= 20 then
    set the locH of sprite x to the locH of sprite x + 20
  end if
  if the locV of sprite x <= 20 then
    set the locV of sprite x to the locV of sprite x + 20
  end if
  if the locV of sprite x >= 460 then
    set the locV of sprite x to the locV of sprite x - 20
  end if
  if flicker = 1 then
    set randomiser to 1
    set verty to 1
    set horizonty to 1
  end if
  set honumber to random(4)
  set minushonumber to -3
  set vernumber to random(4)
  set minusvernumber to -2
  set randomiser to random(2)
  if randomiser = 1 then
    set verty to vernumber
    set horizonty to honumber
  else
    set horizonty to minushonumber
    set verty to minusvernumber
  end if
  set x to 14
  if x = 1 then
    set x to 4
  end if
  if x = 3 then
    set x to 5
  end if
  if x = 2 then
    set x to 6
  end if
  set the locH of sprite x to the locH of sprite x + horizonty
  set the locV of sprite x to the locV of sprite x + verty
  if the locH of sprite x >= 620 then
    set the locH of sprite x to the locH of sprite x - 20
  end if
  if the locH of sprite x <= 20 then
    set the locH of sprite x to the locH of sprite x + 20
  end if
  if the locV of sprite x <= 20 then
    set the locV of sprite x to the locV of sprite x + 20
  end if
  if the locV of sprite x >= 460 then
    set the locV of sprite x to the locV of sprite x - 20
  end if
  if flicker = 1 then
    set randomiser to 1
    set verty to 1
    set horizonty to 1
  end if
  set honumber to random(4)
  set minushonumber to -3
  set vernumber to random(4)
  set minusvernumber to -2
  set randomiser to random(2)
  if randomiser = 1 then
    set verty to vernumber
    set horizonty to honumber
  else
    set horizonty to minushonumber
    set verty to minusvernumber
  end if
  set x to 15
  if x = 1 then
    set x to 4
  end if
  if x = 3 then
    set x to 5
  end if
  if x = 2 then
    set x to 6
  end if
  set the locH of sprite x to the locH of sprite x + horizonty
  set the locV of sprite x to the locV of sprite x + verty
  if the locH of sprite x >= 620 then
    set the locH of sprite x to the locH of sprite x - 20
  end if
  if the locH of sprite x <= 20 then
    set the locH of sprite x to the locH of sprite x + 20
  end if
  if the locV of sprite x <= 20 then
    set the locV of sprite x to the locV of sprite x + 20
  end if
  if the locV of sprite x >= 460 then
    set the locV of sprite x to the locV of sprite x - 20
  end if
  if flicker = 1 then
    set randomiser to 1
    set verty to 1
    set horizonty to 1
  end if
  set honumber to random(4)
  set minushonumber to -3
  set vernumber to random(4)
  set minusvernumber to -2
  set randomiser to random(2)
  if randomiser = 1 then
    set verty to vernumber
    set horizonty to honumber
  else
    set horizonty to minushonumber
    set verty to minusvernumber
  end if
  set x to 16
  if x = 1 then
    set x to 4
  end if
  if x = 3 then
    set x to 5
  end if
  if x = 2 then
    set x to 6
  end if
  set the locH of sprite x to the locH of sprite x + horizonty
  set the locV of sprite x to the locV of sprite x + verty
  if the locH of sprite x >= 620 then
    set the locH of sprite x to the locH of sprite x - 20
  end if
  if the locH of sprite x <= 20 then
    set the locH of sprite x to the locH of sprite x + 20
  end if
  if the locV of sprite x <= 20 then
    set the locV of sprite x to the locV of sprite x + 20
  end if
  if the locV of sprite x >= 460 then
    set the locV of sprite x to the locV of sprite x - 20
  end if
  if flicker = 1 then
    set randomiser to 1
    set verty to 1
    set horizonty to 1
  end if
  set honumber to random(4)
  set minushonumber to -3
  set vernumber to random(4)
  set minusvernumber to -2
  set randomiser to random(2)
  if randomiser = 1 then
    set verty to vernumber
    set horizonty to honumber
  else
    set horizonty to minushonumber
    set verty to minusvernumber
  end if
  set x to 4
  if x = 1 then
    set x to 4
  end if
  if x = 3 then
    set x to 5
  end if
  if x = 2 then
    set x to 6
  end if
  set the locH of sprite x to the locH of sprite x + horizonty
  set the locV of sprite x to the locV of sprite x + verty
  if the locH of sprite x >= 620 then
    set the locH of sprite x to the locH of sprite x - 20
  end if
  if the locH of sprite x <= 20 then
    set the locH of sprite x to the locH of sprite x + 20
  end if
  if the locV of sprite x <= 20 then
    set the locV of sprite x to the locV of sprite x + 20
  end if
  if the locV of sprite x >= 460 then
    set the locV of sprite x to the locV of sprite x - 20
  end if
  updateStage()
end

on mouseUp
  go(80)
end